home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / SAMMLER.TCL < prev    next >
Encoding:
Text File  |  2002-06-03  |  5.7 KB  |  233 lines
  1. #
  2. #   Zustands-▄berwachungs-Script
  3. #   State Watch Script
  4. #
  5. #   Sammler
  6. #
  7. #   created:    15-Jun-2000 Bernd
  8. #   
  9. #   (C) COPYRIGHT 2000 RADONLABS GMBH
  10. #
  11.  
  12. proc sammlerwatch_normal {} {
  13.  
  14.     # Auf Brockensuche verzweigen
  15.     if {[.iskilled] == "true"} {
  16.         .announcestate explode
  17.     } else {
  18.         .announcestate waitsearch
  19.     }
  20. }
  21.  
  22. proc sammlerwatch_handcontrol {} {
  23.  
  24.     # Auf Brockensuche verzweigen
  25.     if {[.iskilled] == "true"} {
  26.         .announcestate explode
  27.     } elseif {[.ishandcontrol] == "false"} {
  28.         .announcestate normal
  29.     }
  30. }
  31.  
  32. # Um Aufschaukeln an einem Hindernis zu verhindern, vorerst nicht rekursiv
  33. proc sammlerwatch_avoidcollision {} {
  34.  
  35.     # evtl auf normal zurueck
  36.     if {[.iskilled] == "true"} {
  37.         .announcestate explode
  38.     } elseif {[.ishandcontrol] == "true"} {
  39.         .announcestate handcontrol
  40.     } elseif { ([.iscommandlistfinished] == "true") && ([.isfirstframe] == "false")} {
  41.         .popstate
  42.     }
  43. }
  44.  
  45. proc sammlerwatch_explode {} {
  46.  
  47.     # Nach Animation wegnehmen
  48.     if {[.isanimfinished] == "true"} {
  49.         .setremoveable true
  50.     }
  51. }
  52.  
  53. proc sammlerwatch_waitsearch {} {
  54.  
  55.     # Nur Suchen
  56.     if {[.iskilled] == "true" } {
  57.         .announcestate explode
  58.     } elseif {[.ishandcontrol] == "true"} {
  59.         .announcestate handcontrol
  60.     } elseif {([.iscontainerfull] == "true") && ("null" != [.getgarage])} {
  61.     
  62.         # goto garage if exists
  63.         .setgaragetarget
  64.         .announcestate goto
  65.     } else {
  66.         
  67.         # Zielsuche
  68.         set tgt [.searchtarget]
  69.         if {$tgt == "null"} {
  70.             if {"null" != [.getgarage]} {
  71.                 .setgaragetarget
  72.                 .announcestate goto
  73.             }
  74.         } else {
  75.             .setvehicletarget $tgt 5 true
  76.             .announcestate goto
  77.         }
  78.     }
  79. }
  80.  
  81. proc sammlerwatch_sleep {} {
  82.  
  83.     set garage [.getgarage]
  84.     
  85.     # Ziel weckt auf, sonst nix
  86.     if {[.iskilled] == "true"} {
  87.         .announcestate explode
  88.     } elseif {[.hastarget] == "true"} {
  89.         .announcestate leavegarage
  90.     } elseif {[$garage.getsleepmode] == "true"} {
  91.         .announcestate offline
  92.     } else {
  93.     
  94.         # Nix? Dann selbst welche suchen
  95.         set tgt [.searchtarget]
  96.         if {$tgt != "null"} {
  97.             .setvehicletarget $tgt 5 true
  98.             .announcestate leavegarage
  99.         }
  100.     }
  101. }
  102.  
  103. proc sammlerwatch_offline {} {
  104.  
  105.     set garage [.getgarage]
  106.     
  107.     # Ziel weckt auf, sonst nix
  108.     if {[.iskilled] == "true"} {
  109.         .announcestate explode
  110.     } elseif {[$garage.getsleepmode] == "false"} {
  111.         .announcestate sleep
  112.     } 
  113. }
  114.  
  115. proc sammlerwatch_leavegarage {} {
  116.  
  117.     # Wenn die Garage mit der Animation fertig ist, schaltet sie
  118.     # uns direkt nach Goto. Wir muessen nix machen. Wenn wir selbst
  119.     # auf visible reagieren wuerden, koennten wir das erst im naechsten 
  120.     # Frame und waeren so fuer einen Frame unsichtbar!
  121.     if {[.iskilled] == "true"} {
  122.         .announcestate explode
  123.     }
  124. }
  125.  
  126. proc sammlerwatch_goto {} {
  127.     
  128.     # Hier spaeter kollision und erneute Scriptauswahl...
  129.     if {[.iskilled] == "true"} {
  130.         announcestate explode
  131.     } elseif {[.ishandcontrol] == "true"} {
  132.         .announcestate handcontrol
  133.     } elseif {[.hastarget] == "false"} {
  134.         .clearcommandlist
  135.         .announcestate waitsearch
  136.     } elseif {[.reachedtarget] == "true"} {
  137.     
  138.         set tgt [.gettarget]
  139.         set target [lindex $tgt 1]
  140.  
  141.         # at garage?
  142.         if {([.getgarage] == $target) && ("null" != [.getgarage])} {
  143.             .announcestate approachgarage
  144.         }
  145.         
  146.         # break off formation, give free members my target
  147.         .givetargettomembers false
  148.     } elseif {[.getavoidcollisionkind] != "nothing"} {
  149.         .pushstate
  150.         .announcestate avoidcollision
  151.     }
  152. }
  153.  
  154. proc sammlerwatch_approachgarage {} {
  155.  
  156.     if {[.iskilled] == "true"} {
  157.         .announcestate explode
  158.     } elseif {[.ishandcontrol] == "true"} {
  159.         .announcestate handcontrol
  160.     } elseif {[.reachedtarget] == "true"} {
  161.         .announcestate entergarage
  162.     } 
  163. }
  164.  
  165. proc sammlerwatch_entergarage {} {
  166.  
  167.     # Die Garage weiss, wann die Animation fertig ist.
  168.     # sie schaltet bei mir das insidegarage-Flag
  169.     if {[.iskilled] == "true"} {
  170.         .announcestate explode
  171.     } elseif {[.isinsidegarage] == "true"} {
  172.         .announcestate unload
  173.     }
  174. }
  175.  
  176.  
  177. proc sammlerwatch_unload {} {
  178.  
  179.     set garage [.getgarage]
  180.  
  181.     if {[.iskilled] == "true"} {
  182.         .announcestate explode
  183.     } elseif {[.iscontainerempty] == "true"} {
  184.         if {[$garage.getsleepmode] == "true"} {
  185.             .announcestate offline
  186.         } else {
  187.             .announcestate sleep
  188.         }
  189.     }
  190. }
  191.  
  192. proc sammlerwatch_cinematic {} {
  193.  
  194.     # empty
  195. }    
  196.  
  197. # ============================================================================
  198.  
  199. proc sammler_addtogarage {} {
  200.  
  201.     # in sleep mode we must be in coordinate system of garage (in order to move
  202.     # if island moves)!
  203.     set garage [.getgarage]
  204.     if {"null" != $garage} {
  205.         $garage.addchildvehicle [psel]
  206.     } else {
  207.         puts "BUG (addtogarage): [psel] has no garage!"
  208.     }
  209. }
  210.  
  211. proc sammler_removefromgarage {} {
  212.  
  213.     # remove object from garage after output animation
  214.     set garage [.getgarage]
  215.     if {"null" != $garage} {
  216.         $garage.removechildvehicle [psel]
  217.     } else {
  218.         puts "BUG (removefromgarage): [psel] has no garage!"
  219.     }
  220.     # shall we connect the viewer to us?
  221.     if {[.getviewergrab] == "true"} {
  222.         if {$garage == [/world.getviewercarrier]} {
  223.             /world.setviewercarrier [psel]
  224.             /world.sethandcontrol [psel]
  225.         }
  226.         .setviewergrab "false"
  227.     }
  228. }
  229.  
  230. # ---
  231. # EOF
  232.  
  233.